
{***********************************************************}
{                                                           }
{      Informix Data Access Components                      }
{                                                           }
{      TIfxUpdateSQL component                              }
{                                                           }
{      Copyright (c) 2001-2008 Luxena Software Company      }
{      http://www.luxena.com                                }
{      e-mail: support@luxena.com                           }
{                                                           }
{***********************************************************}

unit IfxUpdateSQL;

{$I lx.inc}

interface

uses
  Classes, LXUpdateSQL;

type

{ TIfxUpdateSQL }

  TIfxUpdateSQL = class(TLXUpdateSQL)
  private
    function GetVersion: string;
    procedure SetVersion(const Value: string);
  protected
    procedure Loaded; override;
  public
    procedure AfterConstruction; override;
    procedure BeforeDestruction; override;
  published
    property Version: string read GetVersion write SetVersion stored False;
  end;


implementation

uses IfxConsts, Ifx;


{ TIfxUpdateSQL }

procedure TIfxUpdateSQL.AfterConstruction;
begin
  inherited;
  TIDACEvents.HandleObjectCreate(Self);
end;

procedure TIfxUpdateSQL.BeforeDestruction;
begin
  TIDACEvents.HandleObjectDestroy(Self);
  inherited;
end;

procedure TIfxUpdateSQL.Loaded;
begin
  inherited;
  TIDACEvents.HandleObjectLoaded(Self);
end;

function TIfxUpdateSQL.GetVersion: string;
begin
  Result := IDACVersion;
end;

procedure TIfxUpdateSQL.SetVersion(const Value: string);
begin
end;


end.